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SEGAR 7: A SEVEN SEGMENT ARRAY FOR ALPHANUMERIC CHARACTER GENERATION 


DECUS Program Library Write-up 


DECUS NO. 8-486 


LANGUAGE AND APPLICATION : PDP Assembly Language designed for use 

with PDP 8 series computers with 34D 
or storage scope. 


DESCRIPTION: 

This programme is designed as a page ( with 
pointers on Page 0 ) sub-routine for displaying easily observed 
labels on an oscilloscope screen ( 34D ). 

A seven segment display allows all numerical 
and some useful alphabetical characters to be generated. Spacing 
is automatic and can be altered. Full repertoire is shown in 
Figure 1. The routine was designed as part of a real-time data 
acquisition programme where easily observed labels for data 
identification and warnings were required. It was used on a 
PDP8/S originally and it was necessary to reemphasise buffer 
store clearance of the scope D/A in locations 3015;3070;3071. 
to prevent undue noise content of the display. 

CALLING THE SUBROUTINE: 

The sub—routine can be situated anywhere in 
core memory and is called by JMS LABEL, the locations immediately 
following this instruction contain the address of the alpha - 
numerics. The routine terminator is an all sere location. The 
programme returns to the location following the terminator. 

EXAMPLE: JMS LABEL 

651 / D 

641 / E 

653 / C 

660 / U 

667 / S 

000 / terminator 

XXX / Next instruction programme 

return. 

Programme loops can be arranged for non-storage type 
oscilloscopes ( 3AD ). 






FIGURE 1. 


USEFUL WORDS & ABBREVIATIONS: 

no - GO, turn , HI, LO, UP, run. Abort, HG, 
PSI, SAFE, Ch (channel). Stop, Job, LOG, Photo 

LIMITATIONS: 

Maximum number of characters / line as dictated 
by 1777 maximum 'X' axis of 34D. Allowing a margin of 35$ and a 
"character-space" requirement of 15$, the number of characters is 
restricted to 7 per line. 

USAGE: 

Binary Tape 
Ascii Tape. 

Listing. 




A 

06 44 

BACK 

0614 

BARI 

3000 

BAR2 

3046 

BLOK 

0022 

BRAK 

0 67 6 

C 

0 6b 3 

CLOCK 

3 147 

CONSTX 

3150 

C10 

3 14 1 

C100 

002 1 

C1S0 

0033 

Cl 6 

3154 

C17 0 

3143 

C2 

3153 

C2b0 

0032 

C30 

3142 

C7 0 

3144 

DASH 

0627 

DCX 

6051 

DCY 

6061 

DXL 

6053 

DXS 

6057 

DYL 

6063 

DYS 

6067 

E 

064 1 

F 

0636 

FIVE 

4427 

FOUR 

4426 

F 1 

0023 

F2 

0024 

F 3 

0025 

FA 

0026 

F 5 

0027 

F6 

0030 

F7 

0031 

G 

0 65 2 

H 

0645 

J 

066 1 

L 

0654 

LABEL 

0600 

M10 

3145 

Ml 6 

3151 

M2 

0020 

M40 

3152 

NEXT 

0 60 4 

N 1 

0655 

N2 

0 63 1 

N3 

0 67 5 

N4 

0703 

NS 

0667 

N 6 

0622 

N7 

0677 

N8 

062 1 

N9 

0 67 4 

0 

065 1 

ONE 

4423 

P 

0635 

R1 

3073 

R2 

3 104 
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SB 

0623 

SC 

0 62 5 

SD 

066 5 

SEVEN 

4431 

SH 

0646 

SI 

070 1 

SI X 

4430 

SN 

0647 

SO 

0 62 4 

SR 

0626 

ST 

0642 

STORE 

0620 

SU 

0 66 2 

SI 

3017 

S2 

3026 

S3 

3036 

S4 

3115 

S5 

3120 

S6 

3124 

S7 

3127 

THREE 

4425 

TWO 

4424 

U 

0660 

V0 

3133 

V 1 00 

3136 

V 1 6 

3135 

V 17 0 

3137 

V2 

3134 

V70 

3140 

X 

0034 

Y 

3146 


4 




0200 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

00 30 

0031 

0032 

0033 

0034 

3000 

3001 

3002 

3003 

3004 

3005 

300 6 

3007 

3010 

30 1 1 

3012 

3013 

3014 

3015 

3016 

3017 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3030 

3031 

3032 

3033 

3034 

3035 


0200 

7776 
0 100 
1000 
3017 
3026 
3036 
3115 
3120 
3124 
3127 
0250 
0150 
0000 


0000 
0000 
60 63 
7200 
1345 
3347 
1350 
1342 
1341 
6057 
2347 
5210 
7200 
6051 
5600 
0000 
1022 
3350 
1 337 
3201 
4200 
5617 
0000 
1 351 
1022 
3350 
1336 
3201 
4200 
5626 


END OF 
*20 


/SEGAR7... A SEVEN SEGMENT ARRAY FOR 

/GENERATING SCOPE CHARACTERS ON 34D OR STORAGE SCOPE. 
/ENTER ROUTINE WITH 
/ JMS LABEL 

/ X 

/ X 

/ X 

/ 0 ROUTINE TERMINATOR. 

DISPLAY ROUTINE RETURNS HERE. 


M2, 

-2 

C100, 

100 

BLOK, 

1000 

FI, 

3017 

F 2, 

3026 

F 3, 

3036 

F4 , 

3115 

F 5, 

3120 

F 6, 

3124 

F 7 , 

3127 

C250 , 

250 

Cl 50, 

1 50 


X, 0 

DCX= 60 51 


*3000 
BAR 1 , 


S 1 , 


S2, 


DCY= 6061 
D Y S = 60 6 7 
DYL= 60 63 
DXS= 6057 
DXL= 6053 

0 

0 

DYL 

CLA 

TAD M10 
DCA CLOCK 
TAD CONSTX 
TAD C30 
TAD C10 
DXS 

ISZ CLOCK 
JMP .-3 
CLA 
DCX 

JMP I BARI 

0 /FIRST HORIZONTAL SEGMENT 

TAD BLOK 

DCA CONSTX 

TAD V170 

DCA BAR 1+1 

JMS BARI 

JMP 1 SI 

0 /SECOND HORIZONTAL SEGMENT 

TAD Ml 6 

TAD BLOK 

DCA CONSTX 

TAD V100 

DCA BAR 1+1 

JMS BARI 

JMP I S2 


5 





3036 

3037 
3040 

304 1 

3042 

3043 

3044 

3045 

3046 

3047 
30 50 

305 1 

3052 

3053 

3054 

3055 

3056 

3057 
30 60 
30 61 

30 62 

3063 

3064 

3065 
30 66 
3067 
3070 
307 1 

3072 

3073 
307 4 
307 5 
307 6 
307 7 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

31 10 
31 1 1 
31 12 
31 1 3 
31 14 
31 15 
31 1 6 
31 17 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3130 

3131 

3132 


0000 S3* 

1352 
1022 
3350 
1 333 
3201 
4200 
5636 

0000 bAR2* 
0000 

3346 
1345 

3347 
1350 
0000 
3034 

1353 
1034 
6053 
3034 
1 346 
1 341 
6067 
3346 
2347 
5256 
6051 
6061 
5646 

0000 R 1 * 
1022 
3350 
1340 
3247 
1335 
3254 
4246 
567 3 

0000 R2* 

1022 
3350 
1 333 
3247 
1334 
3254 
4246 
5704 

0000 S4* 

4273 
57 1 5 

0000 S5 * 
1021 
427 3 
5720 

0000 S6* 

4304 

5724 

0000 S7 * 

1021 

4304 

5727 


0 

TAD 

TAD 

DCA 

TAD 

DCA 

JMS 

JMP 

0 

0 

DCA 

TAD 

DCA 

TAD 

0 

DCA 

TAD 

TAD 

DXL 

DCA 

TAD 

TAD 

DYS 

DCA 

ISZ 

JMP 

DCX 

DCY 

JMP 

0 

TAD 

DCA 

TAD 

DCA 

TAD 

DCA 

JMS 

JMP 

0 

TAD 

DCA 

TAD 

DCA 

TAD 

DCA 

JMS 

JMP 

0 

JMS 

JMP 

0 

TAD 

JMS 

JMP 

0 

JMS 

JMP 

0 

TAD 

JMS 

JMP 


/THIRD HORIZONTAL SEGMENT 

M 40 
BLOK 
CONSTX 
V0 

BAR 1 + 1 
BARI 
I S3 


Y 

M 10 

CLOCK 

CONSTX 

X 

C2 

X 

X 

Y 

C10 

Y 

CLOCK 

.-11 


I BAR2 

BLOK 

CONSTX 

V70 

BAR2+1 
VI 6 

BAR2+ 6 
BAR2 

I R1 


BLOK 

CONSTX 

V0 

BAR2 + 1 
V2 

BAR2+6 
BAR2 
1 R2 

/TOP LEFT VERTICAL 
R 1 

1 S4 


/TOP RIGHT VERTICAL 

C 1 00 
R 1 

1 S5 

/BOTTOM LEFT VERTICAL 
R2 

I S6 

/BOTTOM RIGHT VERTICAL. 


C100 

R2 

I S7 
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3133 

7200 

V0, 

CLA 

3 1 34 

1020 

V2, 

TAD M2 

3135 

13 54 

VI 6, 

TAD C16 

3136 

1021 

V100, 

TAD Cl 00 

3137 

1 343 

V170, 

TAD C170 

3140 

1 344 

V70, 

TAD C70 

3141 

00 10 

C10, 

10 

3 1 42 

0030 

C30, 

30 

3143 

0 170 

C170, 

170 

3144 

0070 

C7 0 , 

70 

3145 

7770 

M10, 

- 10 

3146 

0000 

Y, 

0 

3147 

0000 

CLOCK, 

0 

3150 

0000 

CONSTX, 

0 

3151 

77 62 

M 1 6, 

- 1 6 

3152 

7743 

M40, 

-35 

3153 

0002 

C2, 

2 

3154 

00 16 

C 1 6 , 

1 6 



ONE=JMS 

1 M 



TWO =JMS 

1 F 2 



THREE=JMS 1 F3 



FOUR=JMS 

i l F4 



FIVE=JMS 

I F5 



S1X= JM S 

1 F 6 



SEVEN=JMS 1 F 7 



*600 


0600 

0000 

LABEL, 

0 /SUBROUTINE FOR CHARACTER GENERATION 

0601 

7 300 


CLA CLL /AUTOMATIC SPACING BETWEEN 

0602 

1032 


TAD C250 /CHARACTERS. 

0603 

3022 


DCA BLOK 

0604 

1 600 

NEXT, 

TAD I LABEL 

0605 

7 450 


SNA 

0606 

5216 


JMP BACK+2 

0607 

3220 


DCA STORE 

0610 

1033 


TAD Cl 50 

061 1 

1022 


TAD bLOK 

0612 

3022 


DCA bLOK 

0613 

5620 


JMP 1 STORE 

0614 

2200 

BACK, 

1SZ LAbEL 

0615 

5204 


JMP NEXT 

0616 

2200 


ISZ LABEL 

0617 

5600 


JMP 1 LAbEL 

0620 

0000 

STORE, 

0 

0621 

4427 

N8, 

FIVE /NUMbER 8 

0622 

4423 

N6 , 

ONE /NUMBER 6 

0623 

4426 

SB, 

FOUR /SMALL b 

0624 

4431 

SO, 

SEVEN /SMALL 0 

0625 

4425 

SC, 

THREE /SMALL C 

0626 

4430 

SR, 

SIX /SMALL R 

0627 

4424 

DASH, 

TWO /UPPER CASE BAR 

0630 

52 14 


JMP BACK 

0631 

4423 

N2, 

ONE /NUMbER 2 

0632 

4427 


FIVE 

0633 

4425 


THREE 

0634 

5226 


JMP SR 
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0635 

4427 

P, 

FIVE 

/CAPITAL 

P 


0636 

4423 

F , 

ONE 

/CAPITAL 

F 


0 637 

4426 


FOUR 




0 640 

5226 


JMP SR 




064 1 

4423 

E, 

ONE 

/CAPITAL 

L 


0642 

4426 

ST, 

FOUR 

/SMALL T 



0643 

5225 


JMP SC 




0644 

4423 

A, 

ON E 

/CAPITAL 

A 


0645 

4427 

H, 

FIVE 

/CAPITAL 

H 


0646 

4426 

SH, 

FOUR 

/SMALL H 



0647 

4431 

SN, 

SEVEN 

/SMALL N 



0650 

5226 


JMP SR 




0651 

4427 

0, 

F 1 VE 

/CAPITAL 

0, 

NUMBER 0 

0652 

4431 

G» 

SEVEN 

/CAPITAL 

G 


0653 

4423 

C, 

ONE 

/CAPITAL 

C 


0654 

4425 

L, 

THREE 

/CAPITAL 

L 


0655 

4426 

N 1 , 

FOUR 

/NUMBER 

\> 

CAPITAL 

0656 

4430 


SIX 




0657 

5214 


JMP BACK 



0 660 

4426 

U, 

FOUR 

/CAPITAL 

U 


0661 

4427 

J, 

FIVE 

/CAPITAL 

J 


0662 

4431 

su. 

SEVEN 

/SMALL U 



0663 

4425 


THREE 




0664 

5256 


JMP Nl+1 




0665 

4424 

SD, 

TWO 

/SMALL D 



0666 

5261 


JMP J 




0667 

4423 

N5 , 

ONE 

/NUMBER 

5* 

CAPITAL 

0670 

4426 


FOUR 




067 1 

4431 


SEVEN 




0672 

4425 


THREE 




067 3 

5227 


JMP DASH 



067 4 

4426 

N9, 

FOUR 

/NUMBER 

9 


067 5 

4424 

N3, 

TWO 

/NUMBER 

3 


0676 

4425 

BRAK, 

THREE 

/BRACKET 

] 


0677 

4423 

N7 , 

ONE 

/NUMBER 

7 


0700 

4427 


FIVE 




0701 

4431 

SI, 

SEVEN 

/SMALL 1 



0702 

5214 


JMP BACK 



0703 

4426 

N4, 

FOUR 

/NUMBER 

A 


07 04 

4427 


FIVE 




0705 

4431 


SEVEN 




0706 

5227 


JMP DASH 








